home *** CD-ROM | disk | FTP | other *** search
/ Apple Reference & Presen…rary 5 (Internal Edition) / Apple R&P Lib Internal v5.0.iso / 6-Developer Demos / Developer Demos-Ed. / Macintosh School® CD-ROM Demo / Macintosh SchoolÆ CD-ROM Demo / card_37434.txt < prev    next >
Text File  |  1990-08-14  |  3KB  |  135 lines
  1. -- card: 37434 from stack: in
  2. -- bmap block id: 38039
  3. -- flags: 4000
  4. -- background id: 25390
  5. -- name: Localize…
  6. ----- HyperTalk script -----
  7. on mouseUp
  8.   if the name of target contains "button" then
  9.     set hilite of button "Australia" to false
  10.     set hilite of button "Canada" to false
  11.     set hilite of button "United Kingdom" to false
  12.     set hilite of button "United States" to false
  13.     set hilite of target to true
  14.   else pass mouseUp
  15. end mouseUp
  16.  
  17. on closeCard
  18.   lock screen
  19.   set hilite of button "Australia" to false
  20.   set hilite of button "Canada" to false
  21.   set hilite of button "United Kingdom" to false
  22.   set hilite of button "United States" to true
  23. end closeCard
  24.  
  25. on returnKey
  26.   flashButton "OK"
  27.   doMenu first
  28. end returnKey
  29.  
  30.  
  31. -- part 1 (button)
  32. -- low flags: 00
  33. -- high flags: 2000
  34. -- rect: left=177 top=205 right=223 bottom=245
  35. -- title width / last selected line: 0
  36. -- icon id / first selected line: 0 / 0
  37. -- text alignment: 1
  38. -- font id: 0
  39. -- text size: 12
  40. -- style flags: 0
  41. -- line height: 16
  42. -- part name: OK
  43. ----- HyperTalk script -----
  44. on mouseUp
  45.   doMenu first
  46. end mouseUp
  47.  
  48.  
  49.  
  50. -- part 2 (button)
  51. -- low flags: 00
  52. -- high flags: 2000
  53. -- rect: left=267 top=205 right=223 bottom=335
  54. -- title width / last selected line: 0
  55. -- icon id / first selected line: 0 / 0
  56. -- text alignment: 1
  57. -- font id: 0
  58. -- text size: 12
  59. -- style flags: 0
  60. -- line height: 16
  61. -- part name: Cancel
  62. ----- HyperTalk script -----
  63. on mouseUp
  64.   doMenu first
  65. end mouseUp
  66.  
  67.  
  68.  
  69. -- part 3 (button)
  70. -- low flags: 00
  71. -- high flags: 8006
  72. -- rect: left=175 top=123 right=139 bottom=258
  73. -- title width / last selected line: 0
  74. -- icon id / first selected line: 0 / 0
  75. -- text alignment: 1
  76. -- font id: 0
  77. -- text size: 12
  78. -- style flags: 0
  79. -- line height: 16
  80. -- part name: Australia
  81. ----- HyperTalk script -----
  82.  
  83.  
  84.  
  85.  
  86. -- part 4 (button)
  87. -- low flags: 00
  88. -- high flags: 8006
  89. -- rect: left=175 top=139 right=155 bottom=247
  90. -- title width / last selected line: 0
  91. -- icon id / first selected line: 0 / 0
  92. -- text alignment: 1
  93. -- font id: 0
  94. -- text size: 12
  95. -- style flags: 0
  96. -- line height: 16
  97. -- part name: Canada
  98. ----- HyperTalk script -----
  99.  
  100.  
  101.  
  102.  
  103. -- part 5 (button)
  104. -- low flags: 00
  105. -- high flags: 8006
  106. -- rect: left=175 top=155 right=171 bottom=301
  107. -- title width / last selected line: 0
  108. -- icon id / first selected line: 0 / 0
  109. -- text alignment: 1
  110. -- font id: 0
  111. -- text size: 12
  112. -- style flags: 0
  113. -- line height: 16
  114. -- part name: United Kingdom
  115. ----- HyperTalk script -----
  116.  
  117.  
  118.  
  119.  
  120. -- part 6 (button)
  121. -- low flags: 00
  122. -- high flags: C006
  123. -- rect: left=175 top=171 right=187 bottom=286
  124. -- title width / last selected line: 0
  125. -- icon id / first selected line: 0 / 0
  126. -- text alignment: 1
  127. -- font id: 0
  128. -- text size: 12
  129. -- style flags: 0
  130. -- line height: 16
  131. -- part name: United States
  132. ----- HyperTalk script -----
  133.  
  134.  
  135.